(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     16621,        536]
NotebookOptionsPosition[     15313,        487]
NotebookOutlinePosition[     15655,        502]
CellTagsIndexPosition[     15612,        499]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"W", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jmt", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", "W", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", "jmt", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"idx", "=", "1"}], ",", 
    RowBox[{"idx", "<=", 
     RowBox[{"Length", "[", "jmt", "]"}]}], ",", 
    RowBox[{"idx", "++"}], ",", 
    RowBox[{
     RowBox[{"Print", "[", 
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"k", "=", "1"}], 
       RowBox[{"Length", "[", "W", "]"}]], 
      RowBox[{"Exp", "[", 
       RowBox[{"2", "\[Pi]\[Iota]", "*", 
        RowBox[{
         RowBox[{"Dot", "[", 
          RowBox[{
           RowBox[{"W", "[", 
            RowBox[{"[", "k", "]"}], "]"}], ",", 
           RowBox[{"jmt", "[", 
            RowBox[{"[", "idx", "]"}], "]"}]}], "]"}], "/", 
         RowBox[{"Length", "[", "W", "]"}]}]}], "]"}], "]"}], ";"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.52951600275605*^9, 3.529516144063133*^9}, {
  3.5295161826733413`*^9, 3.529516231725147*^9}, {3.5295164584461145`*^9, 
  3.5295165295601816`*^9}, {3.5295165963780036`*^9, 3.5295166831809683`*^9}, {
  3.5295168123703575`*^9, 3.5295170368221955`*^9}, {3.529517099302769*^9, 
  3.5295172026976833`*^9}, {3.5295172594209275`*^9, 3.5295173697102356`*^9}, {
  3.5295174368000727`*^9, 3.5295174400312576`*^9}, {3.5295175670595236`*^9, 
  3.5295176209806075`*^9}, {3.529517656246625*^9, 3.529517688822488*^9}, {
  3.529517757978443*^9, 3.5295178044421005`*^9}, {3.5295178407961807`*^9, 
  3.529517973230755*^9}, {3.5295180100198593`*^9, 3.529518012143981*^9}, {
  3.529518056864539*^9, 3.529518108303481*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"7", "+", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "8"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"2", " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"4", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"8", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}]], "Print",
 CellChangeTimes->{{3.529517953662636*^9, 3.529517974084804*^9}, 
   3.5295180132000413`*^9, 3.529518058496632*^9},
 FontSize->18],

Cell[BoxData[
 RowBox[{"7", "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"2", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"4", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}]}]], "Print",
 CellChangeTimes->{{3.529517953662636*^9, 3.529517974084804*^9}, 
   3.5295180132000413`*^9, 3.529518058498632*^9},
 FontSize->18],

Cell[BoxData[
 RowBox[{"3", "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"2", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"4", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}]}]], "Print",
 CellChangeTimes->{{3.529517953662636*^9, 3.529517974084804*^9}, 
   3.5295180132000413`*^9, 3.529518058499632*^9},
 FontSize->18],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{{3.529517953662636*^9, 3.529517974084804*^9}, 
   3.5295180132000413`*^9, 3.5295180585006323`*^9},
 FontSize->18],

Cell[BoxData[
 RowBox[{"3", "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"2", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"4", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}]}]], "Print",
 CellChangeTimes->{{3.529517953662636*^9, 3.529517974084804*^9}, 
   3.5295180132000413`*^9, 3.5295180585016327`*^9},
 FontSize->18],

Cell[BoxData[
 RowBox[{"7", "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"2", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"4", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}]}]], "Print",
 CellChangeTimes->{{3.529517953662636*^9, 3.529517974084804*^9}, 
   3.5295180132000413`*^9, 3.5295180585016327`*^9},
 FontSize->18],

Cell[BoxData[
 RowBox[{"7", "+", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "8"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"2", " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"4", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"8", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}]], "Print",
 CellChangeTimes->{{3.529517953662636*^9, 3.529517974084804*^9}, 
   3.5295180132000413`*^9, 3.529518058502632*^9},
 FontSize->18]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"7", "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"2", " ", "\[Pi]\[Iota]"}], "/", "15"}]], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"4", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"8", " ", "\[Pi]\[Iota]"}], "/", "15"}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.5295181256644735`*^9, 3.529518127730592*^9}, {
  3.52951821126537*^9, 3.529518214785571*^9}, {3.529518276595106*^9, 
  3.529518308595937*^9}, {3.529518535784931*^9, 3.52951854415341*^9}}],

Cell[BoxData[
 RowBox[{"7", "+", 
  SuperscriptBox[
   RowBox[{"(", 
    SuperscriptBox["\[ExponentialE]", "\[Pi]\[Iota]"], ")"}], 
   RowBox[{"2", "/", "15"}]], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[ExponentialE]", "\[Pi]\[Iota]"], ")"}], 
    RowBox[{"4", "/", "15"}]]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "\[Pi]\[Iota]"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[ExponentialE]", "\[Pi]\[Iota]"], ")"}], 
    RowBox[{"7", "/", "15"}]]}], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    SuperscriptBox["\[ExponentialE]", "\[Pi]\[Iota]"], ")"}], 
   RowBox[{"8", "/", "15"}]], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "\[Pi]\[Iota]"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[ExponentialE]", "\[Pi]\[Iota]"], ")"}], 
    RowBox[{"11", "/", "15"}]]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "\[Pi]\[Iota]"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[ExponentialE]", "\[Pi]\[Iota]"], ")"}], 
    RowBox[{"13", "/", "15"}]]}]}]], "Output",
 CellChangeTimes->{
  3.52951812875465*^9, 3.529518216284657*^9, {3.5295182841335373`*^9, 
   3.5295183096709986`*^9}, 3.5295185449494553`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"ExpToTrig", "[", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"8", " ", "\[Pi]\[Iota]"}], "/", "15"}]], "]"}], "]"}]], "Input",\

 CellChangeTimes->{{3.5295186006196394`*^9, 3.529518626394114*^9}, {
  3.5295187598207455`*^9, 3.529518788445383*^9}, {3.5295594554964046`*^9, 
  3.5295594606486998`*^9}, {3.529559577019356*^9, 3.529559578366433*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cosh", "[", 
   FractionBox[
    RowBox[{"8", " ", "\[Pi]\[Iota]"}], "15"], "]"}], "+", 
  RowBox[{"Sinh", "[", 
   FractionBox[
    RowBox[{"8", " ", "\[Pi]\[Iota]"}], "15"], "]"}]}]], "Output",
 CellChangeTimes->{{3.52951860150169*^9, 3.5295186277091894`*^9}, {
   3.5295187726914816`*^9, 3.529518789409438*^9}, 3.529559461961775*^9, 
   3.5295595793924913`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Re", "[", 
  RowBox[{"Cosh", "[", 
   FractionBox[
    RowBox[{"8", " ", "\[Pi]\[Iota]"}], "15"], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5295595876459637`*^9, 3.529559628124279*^9}, {
  3.5295597356784306`*^9, 3.5295597361574583`*^9}}],

Cell[BoxData[
 RowBox[{"Re", "[", 
  RowBox[{"Cosh", "[", 
   FractionBox[
    RowBox[{"8", " ", "\[Pi]\[Iota]"}], "15"], "]"}], "]"}]], "Output",
 CellChangeTimes->{{3.5295596010547304`*^9, 3.529559629907381*^9}, 
   3.5295597368514977`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ExpToTrig", "[", 
  RowBox[{"ComplexExpand", "[", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"8", " ", "\[Pi]\[Iota]"}], "/", "15"}]], "]"}], "]"}]], "Input",\

 CellChangeTimes->{{3.5295600215917835`*^9, 3.5295600470712414`*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Cosh", "[", "\[Pi]\[Iota]", "]"}], "+", 
    RowBox[{"Sinh", "[", "\[Pi]\[Iota]", "]"}]}], ")"}], 
  RowBox[{"8", "/", "15"}]]], "Output",
 CellChangeTimes->{3.5295600479312906`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ExpToTrig", 
  SuperscriptBox[
   RowBox[{"(", 
    SuperscriptBox["\[ExponentialE]", "\[Pi]\[Iota]"], ")"}], 
   RowBox[{"8", "/", "15"}]]}]], "Input",
 CellChangeTimes->{{3.529560013770336*^9, 3.5295600369166603`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"7", "+", 
   SuperscriptBox["E", 
    RowBox[{
     RowBox[{"-", "8"}], "*", "Pi", "*", 
     RowBox[{"I", "/", "15"}]}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.5300208587463303`*^9, 3.530020927960289*^9}}],

Cell[BoxData[
 RowBox[{"6.895471536732346`", "\[InvisibleSpace]", "-", 
  RowBox[{"0.9945218953682734`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.530020929055352*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"3", "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["E", 
     RowBox[{
      RowBox[{"-", "4"}], " ", "Pi", "*", 
      RowBox[{"I", "/", "15"}]}]]}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["E", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "Pi", "*", 
      RowBox[{"I", "/", "15"}]}]]}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["E", 
     RowBox[{"2", " ", "Pi", "*", 
      RowBox[{"I", "/", "15"}]}]]}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["E", 
     RowBox[{"4", " ", "Pi", "*", 
      RowBox[{"I", "/", "15"}]}]]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5300209785861845`*^9, 3.5300210377155666`*^9}}],

Cell[BoxData[
 RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.5300210398256874`*^9}]
}, Open  ]]
},
WindowSize->{749, 660},
WindowMargins->{{85, Automatic}, {Automatic, 15}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 3555, 104, 183, "Input"],
Cell[CellGroupData[{
Cell[4170, 131, 940, 27, 30, "Print"],
Cell[5113, 160, 754, 22, 30, "Print"],
Cell[5870, 184, 754, 22, 30, "Print"],
Cell[6627, 208, 161, 3, 28, "Print"],
Cell[6791, 213, 756, 22, 30, "Print"],
Cell[7550, 237, 756, 22, 30, "Print"],
Cell[8309, 261, 940, 27, 30, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9298, 294, 1082, 28, 33, "Input"],
Cell[10383, 324, 1318, 38, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11738, 367, 424, 9, 33, "Input"],
Cell[12165, 378, 399, 10, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12601, 393, 266, 6, 45, "Input"],
Cell[12870, 401, 242, 6, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13149, 412, 276, 7, 33, "Input"],
Cell[13428, 421, 254, 7, 30, "Output"]
}, Open  ]],
Cell[13697, 431, 244, 6, 33, "Input"],
Cell[CellGroupData[{
Cell[13966, 441, 254, 7, 33, "Input"],
Cell[14223, 450, 183, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14443, 458, 681, 21, 33, "Input"],
Cell[15127, 481, 170, 3, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
